home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 February / PCWorld_2000-02_cd.bin / Software / Vyzkuste / xsetup / _SETUP.2 / Group3 / XQ ShellIconCache Clear.xpl < prev    next >
Text File  |  1999-06-11  |  1KB  |  44 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="5"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\General\Icons"
  5. "NAME"="Icon Cache Clear"
  6. "VERSION"="1.4"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Clear Icon Cache"
  9. "DESCRIPTION 1"="Select an item to clear."
  10. "AUTHOR"="Xteq Systems"
  11. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  12. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@xteq.com."
  13.  
  14.  
  15.  
  16.  
  17. Sub Plugin_Initialize 
  18. End Sub
  19.  
  20. Sub Plugin_CheckData(ElementIndex)
  21. End Sub
  22.  
  23. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  24.   s=GetWinDir
  25.   s=s & "ShellIconCache"
  26.   if FileExists(s) then
  27.    if GetWinVer=3 then
  28.     Call MsgError("The icon cache can't be removed in Windows 98! Please start in DOS Mode and execute the command " & vbCrLF & "DELETE " & GetWinDir & "SHELLI~1")
  29.    else
  30.     Call FileSetAttribute(s,"R-")
  31.     Call FileSetAttribute(s,"H-")
  32.     Call FileSetAttribute(s,"R-")
  33.     Call FileDelete(s)
  34.     Call MsgInformation("Icon Cache has been cleared")
  35.    end if
  36.   else
  37.    Call MsgError("The Icon Cache is already empty!")
  38.   end if
  39.  
  40. End Sub
  41.  
  42. Sub Plugin_Terminate 
  43. End Sub
  44.